home *** CD-ROM | disk | FTP | other *** search
/ Publisher Platinum / Publisher Platinum.iso / clipart / utils / show38a / scroll1.shw < prev    next >
Encoding:
Text File  |  1993-04-30  |  925 b   |  41 lines
  1. SET CURSOR OFF
  2.  
  3. COLOR FOREGROUND 1
  4. COLOR BACKGROUND 3
  5.  
  6. COLOR ATTRIBUTE 48
  7.  
  8. DEFINE
  9. ///////   ///  ///  ///////     ///////    //////   ///////   //////
  10. //    //  // // //  //    //    //    //  //    //    //     //    //
  11. ////////  // // //  ///////     //    //  ////////    //     ////////
  12. //  //    // // //  //          //    //  //    //    //     //    //
  13. //   //   //    //  //          ///////   //    //    //     //    //
  14. END
  15.  
  16. SCREEN CLEAR
  17.  
  18. GOXY 1 10
  19.  
  20. SPEAK "P-R-OO-G-R-A-M-M-EH-D"
  21. WAIT 1
  22. SPEAK "B-I"
  23.  
  24. SET DELAYFACTOR 5
  25.  
  26. MOTION RIGHT 72
  27.  
  28. VARIABLE CREATE scrollloop TYPE NUMBER 1
  29.  
  30. MARK 1             ; Set a mark to jump to
  31. EFFECT SCROLL UP   ; Move screen up
  32. WAIT 1
  33. VARIABLE INCREASE scrollloop 1
  34. IF scrollloop EQ 9 DO JUMPMARK 2
  35. JUMPMARK 1         ; If we've reached here, jump to mark 1
  36. MARK 2             ; Set a mark to jump to
  37.  
  38. VARIABLE RELEASE scrollloop
  39.  
  40. SET CURSOR ON
  41.